home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / LISP Related / U. Mass AI & LISP Tools / MODULES / DACTN / DACTN-Compile.lisp < prev    next >
Encoding:
Text File  |  1990-06-24  |  999 b   |  35 lines  |  [TEXT/CCL ]
  1. ;;; DACTN compilation and testing. Dan Suthers 24-Jun-90 23:54:42 
  2.  
  3. (in-package :DACTN)
  4.  
  5. (defun PATH-TO (file) 
  6.   (concatenate 'string 
  7.                #+:CCL "ccl;MODULES:DACTN:"
  8.                #+HP  "$tee/modules/dactn/"
  9.                #+VAX "cai$disk:[suthers.lisp.modules.dactn]"
  10.                #+:TI "suthers.modules;"
  11.                #-(or :CCL HP VAX :TI) ""
  12.                file))
  13.  
  14. (defun LISP-EXTENSION (file)
  15.   (concatenate 'string 
  16.                file
  17.                #+HP ".l"
  18.                #-HP ".lisp"))
  19.  
  20. (format T "~&Dribbling to ~A ..." (path-to "test.txt"))
  21. (dribble (path-to "test.txt"))
  22.  
  23. (format T "~&Compiling ~A ..." (path-to (lisp-extension "DACTNS")))
  24. (compile-file (path-to (lisp-extension "DACTNS")))
  25.  
  26. (format T "~&Loading ~A ..." (path-to "DACTNS"))
  27. (load (path-to "DACTNS"))
  28.  
  29. (format T "~%~% THERE ARE NO DACTN TESTS YET.")
  30. ;;;(format T "~&Loading Tests in ~A ..." (path-to (lisp-extension "dactn-test")))
  31. ;;;(load (path-to (lisp-extension "dactn-test")))
  32.  
  33. (dribble)
  34.  
  35. ;;; EOF